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CHAPTER 1 


INTRODUCTION 


J 

This Validation Summarv Report NVS 'fH describes the extent to which a 
soec i * i c Aaa compiler conforms to the Ada Stanaara, ANSI/MIL*STD-1815A. 
This report explains all technical terms usea within it and thoroughly 
reports the results of testing this compiler using the Ada Compiler 
Validation Capability An Ada compiler must be implemented 
according to the Aaa Standard, and any implementation-dependent features 
must conform to the requirements of the Ada Standard. The Ada Standard 
must be implemented in its entirety, ana nothing can be implemented that is 
not in the Standard. 

Even though all validated Aaa compilers conform to the Ada Stanaard, it 
must be understood that some differences do exist between implementations. 
The Aaa Stanaard permits some implementation depenoencies — for example, the 
maximum length of identifiers or the maximum values of integer types. 
Other differences between compilers result from the characteristics of 
particular operating systems, hardware, or implementation strategies. All 
the dependencies observed during the process of testing this compiler are 
given in this "eport. 

The information in this report is derive? from the test results produced 
during validation testing. The validation process inciuaes submitting a 
suite :f standardized tests, the ACVC, as inputs to an Aaa compiler and 
evaluating the results. The purpose of vai dating is to ensure conformity 
of the compiler to tne Ada Standard by testing that the compiler properly 
implements legal language constructs and that it identifies ana rejects 
illegal language constructs. The testing also identifies behavior that is 
implements tion dependent but permitted by the Ada Standard. Six classes of 
tests are used. These tests are designed to perform checks at compile 
time, at link time, and during execution. 





INTRODUCTION 


l.i PURPOSE OF THIS VALIDATION SUMMARY REPORT 

This VSR documents the results or the validation testing performed on an 
Ada compiler. Testing was carried out for the following purposes: 

To attempt to identify any language constructs supported by the 
compiler tnat do not conform to the Aaa Stsnaard 

T o attemot tc identify anv language constructs not supported bv 
the compiler but recuirea bv tr.e Ada Standard 

To determine that the impiementation-depenaent behavior is allowed 
oy the Ada Standard 


Testing of this compiler was conducted bv the AVF according to procedures 
established bv tne Ada Joint Program Office ana administered by the Ada 
Validation Organization (AV0). On-site testing was completed 88-05-19 at 
Tartan Laboratories Incorporated in Pittsburgh. 


1.2 USE OF THIS VALIDATION SUMMARY REPORT 


Consistent with the national laws of the originating 
make full and free outlie disclosure of this report, 
this is provided in accordance with the "Freecom of 
U.S.C. 11552). The results of this validation apply 
operating systems, and compiler versions identified 


country, tne A VO may 
In the United States, 
Information Act" (5 
only to tne computers, 
in this report. 


The organizations represented on the signature page of this 
represent or warrant that all statements set forth in 
accurate and complete, or that the supject compiler has no 
to the Ada Standard other than tnose presentee. Copies of 
available to the public from: 


report do not 
this report are 
nonconformities 
this report are 


Ada Information CI earingnouse 
Ada Joint Procram Office 
OUSDRE 

The Pentagon, Rm 3D-139 (Fern Street) 
Washington DC 20301-3081 


or from: 


IA B G m.b.H. , Dept SZT 
Einsteinstrasse 20 
8012 Ottobrunn 
Federal Republic of Germany 


1-2 



INTRODUCTION 


Questions regarding this report or the validation test results should be 
directed to the AVF listed above or to: 

Ada Validation Organization 
Institute for Defense Analyses 
1801 North Beauregard Street 
Alexandria VA 22311 


1.3 REFERENCES 


1. Reference Manual tor th§ Aga Cr 2 g r inn’rg '.anguagg, 
ANSI/MIL-STD-IBIsa” February I?B3“ind’:SO 8652 : 1987. 

2. Aga Cgmgiigr Vaiiggtion EC2£S5yi.wS IDS iyiSeiiDSii Ada Joint 
Program Office, l January 1987. 

3. Adg QfimeUfir Vgliggtign C5E3fciiiii! i!DEl£!D£I!l£D2l Gyigg, SofTech, 
Inc., December 1986. 

a. Ada Cgmgiler Validation Cagabliiti; Userls Guide, December 1986. 
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INTRODUCTION 

1.4 DEFINITION OF TERMS 


AC VC The Ada Compiler Validation Capability. The set of Ada 

programs that tests the conformtv of an Ada compiler to the 
Aaa orogramming language. 

Aaa An Aaa Commentary contains ail information relevant to the 

Commentary com: aaoressea sv a soanen*. or tne A.:a Standard. These 

comments are given a un.cue identification number having the 
form AI-aridda. 


m a a d t a n a a r c 


'.MS I / MIL -STD -1315A, February 1-53 ana ISO 3652-1987. 


hpp ! i can: 


he acenev recuesting vacation. 


AVF T ne Ada Validation Facility. The AVF is responsible for 

conducting compiler validations according to procedures 
contained in the Aga ComcHe: Validation Procedurgs and 
Guide1 i nes. 


A VO The Ada Validation Organization. The AVO has oversight 

authority over all AVF practices for the purpose of 
maintaining a uniform process for validation of Ada 
compilers. The AVO provides aaministrax i ve and technical 
support for Aca validations to ensure consistent practices. 

Compiler A processor for the Aca language. In the context of this 
report, a compiler is any language processor, including 
cross-compilers, translators, ano interpreters. 

Failed test An ACVC test for which the compiler generates a result that 

demonstrates nonconformity to the Ada Standard. 

Host The computer on which the compiler resides. 

Inapplicable An ACVC test that uses features of the language that a 

test compiler is not reouirea to support or mav legitimately 

support in a way other than the one expected by the test. 

Passed test An ACVC test for which a compiler generates the expected 

result. 

Target The computer for which a compiler generates code. 

Test A program that checks a compiler’s conformity regarding a 

particular feature or a comcination of features to the Ada 
Standard. In the context of this report, the term is used to 
designate a single test, which may comprise one or more 
files. 

Withdrawn An ACVC test found to be incorrect ana net used to check 

test conformity to the Ada Standara. A test may be incorrect 
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because ;t nas 3n invalid test objective, fails to meet its 
test objective, cr contains illegal or erroneous use of the 
language. 


ACVC TEST CLASSES 


Carformi 
contains 
classes: 


v to the Ada Standard is measured using the ACVC. The ACVC 
Doth legal and illegal Ada programs structured into six test 
A. 3, C, D. E, and L. The first letter of a test name icentifies 


the class to which it belongs. Class A, C. D, and E tests are executable, 


ana special program units are uses to report their results during 
execution. Class 3 tests are expecteo to produce compilation errors. 


Class . tests 3re expected to produce compi 


ion or 1 : nK errors. 


Class A tests checx that legal Ada programs can be successfully compiled 
and executed. There are no explicit program components in a Class A test 
to check semantics, for example, a Class A test checks that reserved words 
of another language (other than those already reserved in the Ada language) 
are not treated as reserved words by an Ada compiler. A Class A test is 
oassea if no errors are detected at compile time ana the program executes 
to produce a PASSED message. 


Class 3 tests check that a compiler detec 
3 tests are no: executable. Each test 
resulting compilation listing is examined 


s i!legal language usage. Class 
in this class is compiled and the 
to verify that every syntax or 


semantic error in the test is detected. A Class 3 test is passed if every 
illegal construct that it contains is detected bv the compiler. 


Class C tests check that legal Ada programs can be correctly compiled and 
executed. Each Class C test is self-checking ana produces a PASSED, 
'AILED, or NOT APPLICABLE message indicating the result wren it is 
executed. 


Class 0 tests check the compilation ana execution capacities of a compiler. 
Since there are no capacity requirements Placed on a compiler by the Ada 
Standard for some parameters--- ; or example, tne number of identifiers 
permitted in a compilation or the number of units in a library-a compiler 


may refuse to compile a Class D test 
Therefore, if a Class D test fails 


ana still se a conforming compiler, 
to compile because the capacity of the 


compiler is exceeded, the test is classified as inapplicable. If 3 Class D 


lest compiles successfully, it is seif-checking ano oroduces a PASSED or 
FAILED message during execution. 


Each Class E test is se1f-checking and produces a NOT APPLICABLE, PASSED, 
or FAILED message when it is compiled ana executea. However, the Ada 
Standard permits an implementation to reject programs containing some 
features addressed by Class E tests during compilation. Therefore, a Class 
E test is passed by a compiler if it is compiled successfully and executes 
to produce a PASSED message, or if it is rejected by the compiler for an 
allowable reason. 
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Class L tests elect* that i r.como iete Jr : 1 legal Aoa programs Involving 
mu! t: c ■ e. secarats! v tonpiied units are detected ana not allowed to 
execute. Class L test: are compiled separately ana execution is attempted. 
A Class - test passes ■* •: 's rejectee at low :;ne--:nat is, an attempt 
to execute tne ma ■ n program must generate an er-cr message before any 
tec 1 an at • on s in tne ma • n program an an v y p • t s re^e'-enced by the main 
program a r e elaco-atea. 




re mecnanisn cv wn:c n executable tests 
CABLE "“Suits. It also ? rc v : :e s a set 


" e p c r t : a s : 

Ot * c 6 n! ; : V 


_ r I L E - suDCort 
cacxace REPORT 
0 , FAILED, or 
♦unctions used 


seme •:one i !er sot:m: 
:. m •. e n t a test a c 

- * * an* c r\ • ♦ s v ♦ » • 

-* ✓* tns iCu z w3n•:5* 

i set o♦ executable 
re: :o v e r I ?v i na t 
no: o ?e ra ting c o r r e c 


cations 

allowed :y 

tne Aca Standard that 

j e c 1 1 v e. 

n ® c r c c ® : 1 • 

r® uHt"K_* ILE is used to 

e s writ* 

er bv sem® of 

the Class C tests for 

:. The 

operation of 

RE?CRT ana CHECK.FILE is 

tests. 

These tests 

onoauce messages that 

the u n ; 

ts are ocerat 

i r g correctiy. If these 

t!y, then the v a 1ida t 

;on is not attempted. 


’bfl t « 
,tnr i'M 

- • * O w* » M 

example 
lines - 
place ; 
tests, 
c u s: o m i 
illegal 


:- tne tests in the AC VC follow conventions that are intended to 
that the tests are reasonably portable without modification. For 
tne tests maxe use of only the basic set of 55 characters, contain 
th a maximum length of 72 characters, use snail numer ; c values, 3nd 
atu*es that may not os support®: bv all implementations in separate 
-io-ever, some tests contain values that require the test to be 
ea according to imolament at ion-specic va!ues--for example, an 


rile name. A list of the values use: for tnis validation is 


provide: in Appendix C. 


A compiler must correctly process each of the tests in the suite and 
demonstrate conformity to the Ada Standard by either meeting the pass 
criteria given for the test or bv showing that the test is inapplicable to 
tne imolementation. T he spoticaoiii:v of a test to an implementation is 
•consider®: each time tne implementation is validated. A test that is 
; nappI::a p Ie -or one validation is not necessarily inapplicable for a 
susseouent validation. Any test tnat was determined to contain an illegal 
language construct or an erroneous language construct is withdrawn from the 
ACVC arc. therefore, is not used in test : ng a compiler. The tests 
withdrawn at tne time of this validation are given in Appendix D. 
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. «. w w 

Ml T ** ' 1 2 A 

! 'l 1 1 U ft M 

TION T 

£ c * z ft 






he can 

ri i £ * UU 

U • wi 2 • w 

: oitd i ’ 

a t: c n s 

vstem ; 

: 0 r 

this y a! 

ids* 

ion was tested under 

O t low! 

n a : o n t 

i gun* 

ion: 







C o m o i ■ 

er: T 

artan A 

oa VMS/ 

r i *' 
i > 

50A, Vers 

i on 

2.0V 


AC VC V 

e r s i o n 

• « n 







C e r t: r 

i: a t e 

Number: 

secs; 

. q i 

1.0 ? ’ 2 3 




Host Computer: 

Machine: MicroVAX II 

Operating System: MicroVMS 

Version 4.6 

Memory 5i;e: ? MSvte 

*5r:e: Computer: 

Texas Instruments 
Faircnild F 3 450 
(bare machines* 


VHSIC 
17 5 0 A) 


:0A Dat; 


M a c n i n e s: 


Module 




- QN F I j v, n A T I ON INFORM A TICN 


implementation characteristics 

One of the purposes of validating compilers is to determine the behavior of 
a compiler in those areas of the Ada Standard that permit implementations 
to dif-'er. Class D and E tests specifically cnecx for such implementation 
d;ffe p ences. However, tests in other classes also characterize an 
implementation, the tests demonstrate the fcl lowing characteristics: 

* 

. Capacities. 


The compiler correctly processes tests containing loop statements 
nested to 65 levels, block statements nested to 65 levels, and 
recursive procedures separately compiled as subunits nested to 10 
levels. It correct’,v processes a compilation containing 723 
var’acies in the sane declarative part. 'See tests D55A03A..H (8 


D560015, Dfc-005£..G (3 tests;, and D2S0G21 


Universal integer calculations. 

An implementation is allowed to reject universal integer 
calculations having values that exceed SYSTEM.MAX_iNT. This 
implementation processes 64 bit integer calculations. (See tests 
P4A002A, D4A0025, D-AOO^A, and 04A0043.) 


Predefined types. 

This implementation supports the additional predefined type 
LONG INTEGER, LONG FLOAT in the package STANDARD. (See tests 
386001C and 586001D.) 


Based literals. 

An implementation is allowed to reject a based literal with a 
value exceeding SYSTEM.MA X _I NT during compilation, or it may raise 
NUMERIC,ERROR or CONSTRAINT.ERROR during execution. This 
implementation raises NUMERIC_ERROR (See test E24101AJ 


Expression eva1uation. 

Apparently some default initialization expressions for record 
components are evaluated before any value is checked to belong to 
a component’s subtype. (See test C32117A.) 

Assignments for subtypes are performed with the same precision as 
the base type. (See test C35712B.) 
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This imp iementat ion uses no extra bits For extra precision. This 
imo 1ementation uses all extra bits For extra range. (See test 
C 3 5 0 03 A. ' 

Sometimes NUMERIC.ERROR is raises wren an integer literal operand 
in a ccmpar’son or membersnip test is outside the range of the 
case tvoe. (See test C4522ZA.1 

No except 1 cn is ~a»sed when a liters’, operand in a fixed-point 
companion o- memoership test is outside the n ange of the base 
tvce . i See test CA 5 2 5 2A . ) 

Apparently uncerflow is not gradual. (See tests C45524A..Z.J 


Bouncing. 

: ne met no a used for rounding to integer is apparently round away 
; r on :ero . iSee tests C4t>012A. .Z.) 

The method used for rounding to longest integer is apparently 
round avav from zero. (See tests C46012A..ZJ 

The method used -or rounding to integer in static universal real 
expressions is round avav from zero. (See test C4A014A.) 


A r r a v : v p e s. 

An implementation is allowed to raise NUMERIC.ERROR or 
CONSTRAINT ERROR for an array having a ’LENGTH that exceeds 
STANDARD.INTEGER’LAST and/or SYSTEM.MAX.INT. For this 
imeiementat ion: 

Declaration of an ar-ay type or subtvpe declaration with more than 
S v S”E M.M A h _IM T components raises sometimes CONSTRAINT_ERROR, 
sometimes NUMERIC.ERROR. (See test C26002A.1 


No exception is raised when, ’LENGTH 
with INTEGER’LAST + 2 components. 


; s applied to an array 
See test C36202A.) 


type 


NUMERIC.ERROR is raised when an arr3v type with SYSTEM.MAX_INT + 2 
components is declared. (See test C26202S.) 


A packed BOOLEAN array having a ’LENGTH exceeding INTEGER’LAST 
raises NUMERIC.ERROR when the array type is declared. (See test 

r Ch « nmy \ 


A packed two-dimensional BOOLEAN array w>th more than INTEGER’LAST 
components raises NUMERIC.ERROR wren the array type is declared. 
(See test C5Z1G4Y.) 
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A null arrav with one dimension of length greater than 
INTEGER’LAST may raise NUMRR]C.ERROR or CONSTPAINT_ERROR either 
unen declarea or assignea. Alternatively, an implementation may 
accept the declaration. However, lengths must match in array 
slice assignments. This implementation raises NUMERIC.ERROR when 
the array type is aeclared. 'See test E5 2 103Y. ) 

In assigning one-aimension ai array types, the expression does not 
appear to be evaluated in its entirety oetors CONSTRAINT,ERROR is 
raised wnen checking wnether the expression’s sue type is 
compatible with the target's subtype. In assigning 
tuc-oimensional array types, the expression aoes not appear to be 
evaluated in its entirety before C0NS7RAINT_ERROR is raised when 
checking whether the expression's subtype is compatible with the 
target’s subtype. '.See test C52012A.) 


Discriminated types. 

During compilation, an implementation is allowed to either accept 
or reject an incomplete tyoe with discriminants that is used in an 
access type definition with a compatible discriminant constraint. 
This implementation accepts sucn subtype indications. (See test 
E38 104 A .) 

In assigning record types with discriminants, the expression 
appears to be evaluated in its entirety before CONSTRAINT_ERRQR is 
raised when checking whether the expression's subtype is 
compatible with the target’s subtype. (See test CS2013A.) 


Aggregates. 

In the evaluation of a mu!t i-d imens i onai aggregate, all choices 
appear to be evaluated before checking against the index type. 
(See tests C43207A and C422C7B.) 

In the evaluation of an aggregate containing subaggregates, all 
choices are evaluated before being cr.ecked for identical bounds. 
(.See test E432128.) 

Not all choices are evaluated before CONSTRAINT_ERROR is raised if 
a bound in a nonnull range of a nonnull aggregate does not belong 
to an index subtype. (See test E43211B.) 


Representat ion clauses. 

An implementation might legitimately place restrictions on 
representation clauses usea by some of the tests. If a 
representation clause is used py a test in a way that violates a 
restriction, then the implementation must reject it. 








:ONFIGURATION INFORMATION 


Enumeration representation clauses containing noncontiguous values 
For enumeration types other than character and boolean types are 
suoportec. (See tests C25502I..J, C25502M..N, and A390Q5F.) 

Enumeration representation clauses containing noncontiguous values 
For character types are supported. (See tests C35507I..J, 
C35507M..N, ana CE5B16AJ 

Enumeration representation «i auses For boolean types containing 
"“presentational values other tnan iFALSE => 0, TRUE => i) are 
sucporteo. (See tests C25508I..J and C2550EM..N.) 

Length clauses with SIZE specifications for enumeration types are 
supoortea. (See test A29005B.) 

Length clauses with STORAGE_SIZE specifications For access types 
are supportec. iSee tests A39005C and CSTBoZS.) 

length clauses with STORAGE_SIZE specifications For task types are 
supported. (See tests A39005D and C87B62D.) 

Length clauses with SMALL specifications are supported. (See 
tests A39005E and C87862C.) 

Record representation clauses are supported. (See test A29005G.1 

Length clauses with SIZE specifications for derivec integer types 
are supported. (See test C87B62A.) 


Pragmas. 

The pragma INLINE is not supported for procedures. The pragma 
INLINE is not supportec for functions, (See tests IA3G04A, 
LA30G4B, EA3G04C, EA3004D, CA3004E, anc CA3004F.) 


Incut/output. 

The director, AJPQ, has determined CAI-00332) that every call to 
OPEN and CREATE must raise USE_ERROR or NAME_ERROR if file 
input/output is not supportea. This impiementation exhibits this 
oenavior for SEQUENT IAL _10, DIRECT_IO, and T E X T _10. 


Generics. 

Generic subprogram declarations and bodies can be compiled in 
separate compilations. (See section 3.5 for restrictions. See 
tests CA1012A and CA2009F .) 
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Generic package declarations and bodies can be 
separate comDi!at: ons. (See section 3.o For restri 
tests CA200SC, BC32C-4C, ana BC3Z05D.J 


Generic unit oodies ana t fi e i r subunits 
compilations. 'See section o . 5 ‘ o 

C A 3 0 i 1A. 


can be compi1ed 
restrictions. 


compiled in 
ctions. See 


in separate 
See test 
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CHAPTER 3 


TEST INFORMATION 


3.1 TEST RESULTS 

Version !.? of the ACVC comprises 3122 tests. Uhen this compiler was 
tested. 27 tests had been withdrawn because oF test errors. The AVF 
determined that 506 tests were inapplicable to this implementation. All 
inapplicable tests were processed during validation testing except For 285 
executable tests that use Floating-point precision exceeding that supported 
by the implementation . Mod i Fications to the code, processing, or grading 
For 76 tests were required to successfully demonstrate the test objective. 
(See section 3.6.) 

The AVF concludes that the testing results demonstrate acceptable 
conFormity to the Ada Standard. 


3.2 SUMMARY OF TEST RESULTS BY CLASS 


RESULT 

A 

n 

_3_ 

TEST 

r 

r* acc 

u w h - 

_D_ 

! 

— 

TOTAL 

Passed 

107 

1046 

1367 

16 ? 

44 

2569 

InappIicab 1 e 

7 

5 

486 

1 9 

? 

i— 

506 

Withdrawn 

3 

2 

9 * 

(1 1 

0 1 

0 

27 

TOTAL 

113 

1053 

1874 

17 19 

46 

3122 
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TEST :'\F3RMATICM 

3.3 SUMMARY Of TEST RESULTS BY CHAPTER 


RESULT 


__2 

a 


..6 

CHAPTER 

__3 __2 _1Q 

.11 _i- 

.12 

1 4 

— Jk. — 

TOTAL 

=3:sea 

!3C 

470 

i°0 

n 4 c 

_ ^ \d 

1 w 0 

141 327 127 

36 232 

3 

73 

2589 

’ * a p o: c a c! e 

n « 

102 

I 34 

3 


3 2 0 10 

0 2 

0 

180 

506 

W:tharawn 

o 

14 

o 

0 

0 

12 0 0 

0 2 

1 

n 

27 

TC’AL 

:o6 

536 

Ml 

0 ! 1 

248 

166 

?? 145 327 137 

36 236 

4 

255 

3122 


3.A «TTHDRAVN TESTS 

The following 27 tests were withdrawn from ACVC Version 1.? at the time of 
this vs 1idation: 


5 2 3 0 0 3 A 
C259OJ0 
: 3 7 215 E 
C A 5 6 i A C 
AD 1AO1A 


E28CQ5C 
C 3 5 AO 2 E 
C 2 7 215 3 
A 7 410 6 C 
CE24Q1H 


C34Q04A 

C35A03R 

C2721SH 

CS5018B 

CE32Q8A 


C355G2P 

C37213H 

C28102C 

C37B04S 


A 2 5 ? 0 2 C 

r ? 7 *71 - i 

l 0 / C I u 0 
C4140 2 A 
CC121IS 


C357044 
C37215C 
C 4 5 3 2 2 A 
BC3105A 


See Accendix D for the reason that each of these tests was withdrawn. 


3.5 INAPPLICABLE TESTS 

Some tests do not apply to all compilers oecause they make use of features 
that a compiler is not required by the Ada Standard to support. Others may 
depenc on the result of another test that is either inapplicable or 
withdrawn. The applicability of a test to an implementation is considered 
each time a validation is attempted. A test that is inapplicable for one 
validation attempt is not necessarily inapplicable for a subsequent 
attempt. For this validation attempt, 506 tests were inapplicable for the 
reasons indicated: 


E280020 and E28005D use pragmas LIST and PAGE which are ignored by 
this compiler. This benaviour was ruled acceptable by the AVO 
■'.dated 36-01-14). 
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TEST INFORMATION 


C35702A uses SHORT _ F LOA T which is not supported by this 
impiementation. 


The following tests use SHORT_INTEGER, which is not supported by 
this ;onpi1er : 

C -15 Z 3 IS CJ5304S C - 5 5 0 Z 5 C455033 C45504B 

'4 5 5 0 4 E C 4 5 6i:B C45613B C 4 5 614 E C 45621B 

2 4 5 6 2 Z B B5ZC04E C55B07B B55B09D 


C45221D reauires a macro substitution for any predefined numeric 
types other than INTEGER, SHORT_I NTEGER, LONG.INTEGER, FLOAT, 
5HCRT.FL0AT, and LONG.FLOAT. This compiler does not support any 
sue n types. 


C45531M. C4553IN, C45532M, and C45532N use fine 48-bit fixed-point 
base types unich are not supported by this compiler. 


C 4 5 5 2i0, C45531P, C45532Q, and C45532P use coarse 48-bit 

fixec-ooint base types 


0640C5G uses nested procedures 3s subunits to a level of 17, which 
exceeds the capacity of the compiler, which are no: supported by 
this compi1er . 


38600ID requires a predefined numeric type other than those 
defined by the Ada language in package STANDARD. The r e is no such 
type for this implementation. 


C86001F redefines package SYSTEM, but TEXT_10 is mace obsolete bv 
this new definition in this implementation and the test cannot be 
executed since the package REPORT is dependent on the oacicage 
TEXT 10. 


C A 20 09 F, CA2D09C..D (2 tests), CA2009F, BC3009B..C (2 tests) This 
compiler enforces the following two rules concerning declarations 
ana prooer bodies which are individual compilation units: 

o generic bodies must be compiled and completed before their 
specifications are mentioned in context-clauses. 

o recompilation of a generic body or any of its transitive 
subunits makes all units obsolete which mention that generic 
unit in a context-clause. 
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TEST INFORMATION 





These "ules are enforced whether 

the compilot ion units are in 


separa t e 

compi1 at i on files or not 

The rules are 

in conflict with 


the said 

tests. A1408 and A1506 

allow this behaviour until June 


198?. 





C A o C C >i c , 

EA2004C, 3nc LA3004A 

use the INLI 

NE pragma for 


procedure 

s. wnicn is not supporte 

d bv this compii 

6 r. 


. CA300AF, 

EA3004D, and LA3004B use 

the INLINE pragma for functions, 


which is 

not supported by this compiler. 



n 1- . V I 

EE22C1D, ar,a EE2201E 

use instaniiai 

ions of package 


SE lUENTI AL_IO with unconstra i nea array types 

and record types 


having discriminants without defaults. These instantiations are 


rejected 

by this comp tier. 




. A E 0101H, 

EE2401D, and EE2401S 

use instantiations of package 


CIRSCT.IO 

with unconstrained array types and re 

cord types having j 


discriminants without defaults. 

These instantiations are rejected ! 


oy tr.is comp i ier. 




The following 174 tests are inappiicaoie because 

sequential, text, 


anc direct access files are not s 

upported. 



CE2102C 

CE2102G..H(2) 

CE2102K 

CE2104A. .0(4) 


CE2105A 

..3(2) CE2106A..B(2) 

CE2107A..1(9) 

CE2108A..0(4) 


C E : 10 9 A 

.. C(3) CE2110A..C(2) 

CE2111A. .E(5) 

CE2111G. .HO) 


C E 2 :15 A 

..8(2) CE2201A..C(3) 

CE2201 F. .G (2) 

CE2204A..B(2) 


ce::o6s 

CE2210A 

CE2401A..C(3) 

CE2401E..F(2) 


ce:<io<:a 

CE2405S 

CE2406A 

C52407A 


CEZ-08A 

CE2409A 

CE2410A 

CEZ411A 


A E: i 01A 

CEE 1022 

EE2102C 

CE3103A 


C E 2 10 4 A 

CE3107A 

CE2108A..8(2) 

CE3109A 


CE2110A 

CE3111A..E(S) 

CE3112A..2(2) 

CE3114 A..B(2) 


CEE 115A 

CE3203A 

CE2301A.. C (3) 

CE3302A 


CE2305A 

CE3402A..0(4) 

CE3403A. .CO) 

CE3403E . . F(2) 


CE2404A 

.. C(3) C53405A..0(4) 

CE2406A..0(4) 

CE3407A..C(3) 


CE2403A 

.. C (3) CE3409A 

CE34C9C..F(4) 

CE3410A 


CE2410C 

. . F(4) CE3411A 

CE3412A 

CE3413A 


CE2412C 

CE3602A..0(4) 

CE3603A 

CE3604A 


CE2605A 

..E(5) CE3606A..3(2) 

CE3704A..3(2) 

CE3704D..F(3) 


CE2704M 

..0(3) CE3706D 

CE3706F 

CE3804A..ECS) 


CE3804G 

CE3804I 

CE2604K 

CE3804M 


Cl 2 3 C w n 

. .2(2) CE2806A 

CE2806D . . E (2) 

CE3905A..C(3) 


CE2905L 

CE3906A. .CO) 

CE2906E..F(2) 



Resuits o 

f running a subset of these tests showed 

that the proper f 


exception 

s are raised for unsupported file operations. 
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TEST INFORMATION 


The following 285 tests require 3 floating-point accuracy that 
exceeds the maximum of 9 digits supported by this implementation: 


C24H3F. 

. y 

(20 

tests) 

C35705F 

.Y 

(20 

tests) 

C35706F. 

. Y 

(20 

tests) 

C35707F 

.Y 

(20 

tests) 

C35708F. 

.Y 

(20 

tests) 

C35802F 

, w 

(21 

tests) 

C45241F. 

.Y 

(20 

tests) 

C45321F 

V 

(20 

tests) 

C45421F. 

. Y 

(20 

tests) 

C45521F 

, __ 

(21 

tests) 

C45524F. 

7 

(21 

tests' 

C 45 621F 


1 o 1 

tests) 

C45641F. 

.Y 

(2C 

tests) 

C46CI2F 

. : 

•::i 

tests) 


2.5 T ES7. PROCESSING, AND EVALUATION MODIFICATIONS 

It is expected that some tests will reouire modifications of code, 
processing, or evaluation in oraer to compensate for legitimate 
implementation behavior. Modifications are made by the AVF in cases where 
legitimate implementation behavior prevents the successful completion of an 
(otherwise) applicable test. Examples of such modifications include: 
aoding a length clause to alter the default size of a collection; splitting 
a Class 3 test into subtests so that all errors are detected; and 
confirming that messages produced by an executable test demonstrate 
conforming behavior that wasn’t anticipated by the test (such as raising 
one exception instead of another). 

Modifications were required for 73 Class S tests. 


The following Class 3 tests were split because syntax errors at one point 


res 

ulted in the compiler not detec 

ting o t 

her er'ors in the 

test: 



B22003A 

32400 7 A 

3 24 0 09 A 

3250CZ3 

332201A 

533301A 

B34007H 



S35701A 

B 3 6171A 

B36201A 

337101.4 

337102.4 

337201A 

337202A 



837203A 

5 3 7 3 0 2 A 

328003A 

3380033 

338008A 

3380085 

B38009A 



3380095 

238103A 

B 3 8 103 B 

338103C 

S38i030 

333 2 03E 

3432D1C 



B43202C 

B44001A 

343002A 

S480D2S 

348D02D 

3A8002E 

348002G 



348003E 

849003A 

B 4 9 0 05 A 

B 4 9 0 0 6 A 

3 49 0 0 7 A 

3 49 0 0 9 A 

34A010C 



3S4A20A 

3 5 4 A 2 5 A 

B580G2A 

3580023 

3 5 90 01A 

359001C 

5590011 



E62006C 

B 64001A 

B67001A 

B 6 7 0 015 

B67001C 

B67001D 

B74103E 



B 7 4104A 

385007C 

B 9100 3 B 

3910054 

3 9 5 0 01A 

3 9 5 0 0 3 A 

395007B 



395031A 

B 9 5074 E 

3C1002A 

BC1109A 

BC1109C 

BC1206A 

BC3005B 



8C3009C 








For 

the two tests 

3C3204C 

and SC3205D the 

com? i 1 a 

iion order was changed 

to 


BC2204C0, 

..Cl, .. 

C2, ..C3M, ..C4 

r c 

1 . . w « 

.. C6, .. 

C3M 


and 











BC3205D0, ..DIM, 

..02, 

. .DIM 




respectively- This change 

: was nec 

essary 

because 

of the 

compiler’s rules 

for 

separately i 

:ompi1ed 

generic 

units. 

When processed 

in this order 

the 
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messages were produced for 3C22Q4C2M and BC32Q5D1N, 


c-sma: :cn 


expected e'ror 

respective:’/. 


the : cmo * 31 : on -lies for BC3204D ana BC2205C consist of several 
compilation units eacn. Tne compilation units for the main procedures are 
near tne peainning of the files. When processing these files unchanged a 
*.: n k error ;s recortea instead of the expected compilation error because of 
tne c tmo ! 1 er ’ s "t; 1 as ♦ or separate! y comp i! ec generic units. Therefore, the 
comp: it; on - : '.es were cnar.ged pv acoeraing ::o: e s of the main procedures 
to the era of these -lies, ’when processing these seconc occurences of the 
ma:r procedures the exoectec error messages were generated ov the compiler. 

test 221221- .as soi’t ; nto two carts because of target memory size 
p r c n e n s. 

Test E23GC-23 checks that predefined or unrecognized pragmas may have 
arguments involving overloaded identifiers without enough contextual 
information to resolve the overloading. It also checks the correct 
processing of pragma LIST. This compiler ignores pragma LIST so that this 
part of the test was not taken into account when grading the test as 
passed. 


3.7 ADDITIONAL TESTING INFORMATION 
3.7,1 ?"evaliaation 

Prior to validation, a set of test results for AC VC Version 1.9 produced by 
the T ar:an Ada VMS/I750A was suomitted to the AVF by the applicant for 
review. Analysis of these results demonstrated that the compiler 
successfully passed all applicable tests, an 0 the compiler exhibited the 
expected behavior on ail inapplicable tests. 


2.7.2 'est Method 

Testing of the Tartar. Aca VMS/ 1750A using ACVC Version 1.9 was conducted 
on-site oy a validation team from the AVF. The configuration consisted of 
a MicroVAX II operating under MicroVMS, Version 4.6. 

A magnetic tape containing all tests except for withdrawn tests and tests 
requiring unsupported floating-point precisions was taken on-site by the 
validation team for processing. Tests that make use of 
implementation-specific values were customized before being written to the 
magnetic tape. Tests requiring modifications during the preva1idat i on 
testing were not included in their modified form on the magnetic tape. 
They were provided by Tartan Laboratories Incorporated ana reviewed by the 
validation team. 


3-6 



TEST INFORMATION 


Tne contents of the magnetic tape were not loaned a;rectiy onto the host 
computer. The tests were read on a VAX-750 ana transferred to two host 
computers (Two MicroVAX II, MVS and MVC) using an ether-net connection. 

After the test files were loaded to disk, one half of the tests was 
com d iled and linked on MVB, the other half on MVC. Executable images were 
transferred to the VAX-750 bv FTP and then downloaced and executed on the 
Fatrcniia ana Texas Instruments target. Note that the same executable 
images were downloaaed to both targets. Results were transferred to the 
VAX-'50, where thev were checked, printed and archived. 

The compiler was tested using commana scripts provided by Tartan 
Lacorator:ss Incorporated ano reviewed by the validation team. The 
compiler was tested using ail default switch settings. 

Tec: output, compilation listings, ana job logs were captured on magnetic 
tace and archived at the AVF. The listings examined on-site by the 
validation team were also arcnivea. 


3.7.2 Test Site 

Testing was conducted at Tartan Laocratories Incorporated in Pittsburgh and 
was completed on 38-05-19. 
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DECLARATION OF CONFORMANCE 


DECLARATION OF CONFORMANCE 

Compiler Implementor: Tartan Laboratories Incorporated 

Ada Validation Facility: IABG m.b.H., Dept. SZT 

Ada Compiler Validation Capability (ACVC) Version: 1.9 


Base Configuration 

Base Compiler Name: Tartan Ada VMS/1750A 
Base Compiler Version: Version 2.0V 
Host Computer: MicroVAX II 

Target Computers: Texas Instruments VHSIC 1750A Data Processor Module 

Fairchild F9450 (1750A) 


Implementor's Declaration 


I, the undersigned, representing Tartan Laboratories 
implemented no deliberate extensions to the Ada 

listed in th 


ANSI/MIL-STD-1315A in the compiler(s 


cie 


r 1 n r 


fc; 


Incorporated, have 
Language Standard 
s declaration. I 

Tartan Laboratories Incorporated is the owner of record of 
Ada Language compiler(s) listed above and, as such, is responsible 
maintaining said compiler(s) in conformance to ANSI/MIL-STD-1315A. 


are 


All certificates and registrations for Ada Language compiier(s) listed 
in this declaration shall be made only in the owner's corporate name. 


Tartan Laboratories Incorporated 
Donald L. Evans, President 


Date: 




Owner's Declaration 


I, the undersigned, representing Tartan Laboratories Incorporated, take 
full responsibility for implementation and maintenance of the Ada 
compiler(s) listed above, and agree to the public disclosure of the 
final Validation Summary Report. I further agree to continue to comply 
with the Ada trademark policy, as defined by the Ada Joint Program 
Office. I declare that all of the Ada Language compilers listed, ar.d 
their host/target performance, are in compliance with the Ada Language 
Standard ANSI/MIL-STD-1315A. 



Tartan Laboratories Incorporated 
Donald L. Evans, President 


Date: 


-ZoAa-f $ 8 ' 
/ 


Remark added by the AVF: The line starting with "Host Computer" 
should read "Host Computer: Micro VAX II under Micro VMS 4.6" 
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APPENDIX F Or THE Ada STANDARD 


"fie on!/ 5 i: o - e c ino i eme.ntat: on dependencies correspond to implementation- 
dependent pragmas, to certain macnine-aeoenaent conventions as mentioned in 
cnacter 12 of the Ada Standard, and to certain allowed restrictions on 
representation clauses. The implementation-dependent cnaracter i st i cs of 
the Tartan Aca VMS/1750A, Version 2.0V, are described in the following 
sections, which discuss topics in Appendix F of the Ada Standard. 
Implementation-specific portions of the package STANDARD are also included 
in this appendix. 


package STANDARD is 

type INTEGER is range -32768 .. 32767; 

type FLOAT is digits 6 range -1680.8000 00SE^32 .. 1680.7FFF FF8 E t 32; 
type LONG INTEGER is range -2147483648 .. 2147483647; 
type LONG FLOAT is digits 9 range -1680.8000 0000 Q08Er32 .. 
1680.7FFF_FFFF_FF8E+32 ; 

type DURATION is delta 0.0001 range -864CO.O .. B6400.0; 

-- DURATION’SMALL - 281.D8E-14 

end STANDARD; 
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Chapter 5 

Appendix F to MIL-STD-1815A 


Iliis chapter contains the required Appendix F to Military Standard. Ada Programming Language, 
ANSI/ MIL STD-ISi5A (American National Standards Institute. Inc., February 17. 1983). 


5.1. PRAGMAS 

5.1.1. Predefined Pragmas 

Tins section summarizes the effects of and restrictions on predefined pragmas. 

• Access collections are not subject to automatic storage reclamation so pragma CONTROLLED has no 
effect. Space deallocated by means of UNC1IECKED_DEALL0CATI0N will be reused by the allocation of 
new objects. 

• Pragma ELABORATE is fully supported. 

• Pragma INLINE, is supported but has an effect on the generated code only when the call appears within 
the same compilation unit as the body of the in-lined subprogram. 

** Pragma INTERFACE, is not supported. The implementation-defined pragma F0REIGN_30DY (see Sec¬ 
tion 5 1.2.2) can lie usetl to interlace to subprograms written in other languages. 

• For global control over listings, compiler option switches should be used rather than pragma LIST. 

• Tartan compilers currently optimize both the time and space aspects based on what is best in the local 
context. Future releases of the compiler will have option switches to decrease the level of sophistication of 
the optimizations. Because it is generally very difficult to establish global time and space tradeoffs, 
pragma OPTIMIZE cannot be effectively supported in the form suggested in the LRM. 

• Pragma PACK is fully supported. 

• The effect of pragma PAGE can be achieved by inserting form-feed characters into the Ada source file. 

• Pragma PRIORITY is fully supported. 

• The effect of pragma SUPPRESS can be achieved by a global compiler option switch. 

» Future releases of the compiler will support the following pratnnas: MEM0RY_5IZE. SHAPED. 
STORAGEJJNIT and SYSTEMJfAME. 

A warning message will be issued if an unsupported pragma is supplied. 

5.1.2. Implementation-Defined Pragmas 

Tartan provides the following pragmas. 

5.1.2.1. Pragma LINKAGE_NAME 

The pragma LINKAGE_NAME associates an Ada entity with a string that is meaningful externally; e.g., to a 
linkage editor. It takes the form 

pragma LINKAGE_MAME ( Ada-simple-namc. string-constant) 

The AJa-simpie-nwne must be the name of an Ada entity declared in a package specification. This entity must 
be one that has a runtime representation; e.g., a subprogram, exception or object. It may not be a named 
number or siring constant. The pragma must appear after the declaration of the entity in the same package 
specification. 

The effect of the pragma is to cause the string-constant to be > cd in the generated assembly code as an 
external name for the associated Ada entity. It is the responsibility of the user to guarantee that this string 
constant is meaningful to the linkage editor and that no illegal linkname clashes arise. 


REVISED TOR VERSION 2.00; MAY 15. 19R8 
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5. 1.2.2. I’ragma FOREIGU_BQDY 

A subprogram written in another language can be called from an Ada program. Pragma F0F.EIGN_30DY 
is used to indicate that die body for a non-gencr.c top-ievc! package sjxrcification :s provided in the form of an 
object module. The bodies for several subprograms may be contained in one object module. 

Use of the pragma F0REIGU_B0DY dictates that all subprograms, exceptions and objects in the package 
are provided by means of a foreign object module. 

The pragma is of ihc form: 

pragma F0REIGN_B0DY (language _mune [, clanuriiunn_ro:iimr_nan:e ] ) 

The parameter ltiriguage_'uwic is intended to allow- the compiler to identify the catling convention used by the 
foreign module (but this functionality is not yet in operation). The programmer must ensure that the calling 
convention and data representation of the foreign body procedures arc compatible with those used by the Tartan 
Ada compiler. Stibpiograms called bv tasks should be reentrant. 

The optional t'liibnriiiii>ii_n>tttme_n<inu’ argument provides a means to initialize the package. The routine 
specified as ihc ehiimi ilium ^ronnne _miine, which will be called lor the elaboration ot this package body, must 
be a clobai routine in the object module provided by the user. 

A specification that uses this pragma may contain only subprogram declarations, object dccnrations that use 
an unconstrained Ivpe maik. and number declarations. Pragmas may also appear in the package. The type 
matk for an object cannot lie a task type, and the object declaration must not have an initial value expression. 
Hie pragma must be given prior to any declarations within the package specification. If the pragma is not 
located before the first declaration, or any restriction on the declarations is violated, the pragma is ignored and 
a warning is generated. 

The foreign body is entirely responsible for initializing objects declared in a package utilizing pragma 
F0REIGII_30DY. In particular, the user should be aware that the implicit initializations described in LRM 
3.2.1 arc not done by the compiler. fThe.se implicit initializations arc associated with objects of access types, 
certain record types and composite types containing components of the preceding kinds of tvpes.) 

Pragma LINKAGE_MAME should be used for all declarations in the package, including any declarations in a 
nested package specification to be sure that there are no conflicting (ink names. If pragma LINKACE_NAME is 
not used, the crnss-refcrcncc qualifier. /CR0S3_EEFEREiJCE. (see Section 3.2) should be used when invok¬ 
ing the compiler and the resulting cross-reference table of linknemes inspected to identify the linknames as¬ 
signed by the compiler and determine that there arc no conflicting linknames (see also Section 3.5). 

Example: 

package Fortran_RunTimes is 

pragma F0REIGN_B0DY ("fortran"); 

—The language name is a comment only. 

—it is not checked for validity, 
end Fortran_RunTimes; 

with Fortran_Runtimes; 
package Fortran_Library is 

pragma F0REIGN_B0DY ("fortran". "init_seed"); 
function SquareRoot(x:float) return float; 
function Exp (x;float) return float: 
function Random return float; 
pri vate 

pragma LINKAGE_NAME (SquareRoot. "Sort"); 
pragma LINKAGE_NAME (Exp, "Exp"); 
pragma LINKAGE_NAME (Random. "Rnd"); 
end Fortran_Library; 

The user may compile a body written in Ada for a specification into Ihc library, regardless of the language 
specified in the pragma contained in the specification. This capability is useful for rapid prototyping, where an 
Ada package may serve to provide a simulated response for the functionality that a foreign body may eventually 
produce. It also allows the user to replace a foreign body with an Ada body without recompiling the specifica¬ 
tion. 

The user can either compile an Ada body into the library, or use the command ALI2 F0REIGU_30DY 
(See Section 4.7) to use an Ada body from another library. The Ada body from another library must have been 
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compiled under an identical specification. Tlie pragma LINKAGE_NAME must have been applied to all entities 
declared in (lie specification. The only way to specify the linknamc for the elaboration routine of an Ada body 
is with the pragma FOREIGM_BODY. 


5.2. IMPLEMENTATION-DEPENDENT ATTRIBUTES 

No implementation-dependent attributes arc currently supported. 

5.3. SPECIFICATION OF THE PACKAGE SYSTEM 

'[lie parameter values specified for MIL-STD-I75CIA in package SYSTEM (LRM 13.7.1 and Appendix C) 

are: 

package system is 

type address is new integer: 
typo name is (MIL_STD_1750A): 

system_name constant name := M1L_STD_1750A; 

storage_unit constant := 16: 

memory_size constant := 1000000; 

inax_int constant := 0147483647; 

min_int : constant := -max_int - 1; 

max_digits constant := 9: 

max_mantissa constant := 31; 

fine_delta : constant := 2#1.0#e-31: 

tick : constant := 0.0001; 

subtype priority is integer range 10 .. 200: 
default_priority: constant priority := priority'first; 
runtime_error : exception; 
end system; 

5.4. RESTRICTIONS ON REPRESENTATION CLAUSES 

Restrictions on representation specifications: 

• Length clauses [LRM 13.2]; 

- A length clause for T'SIZE is permitted for any type or first subtype T for which the size can be 
computed at compile time. A length clause lor a composite type cannot be used to force a smaller size 
lor components than established by the default type mapping or by length clauses for the component 
types. 

- There are no restrictions on other forms of length clauses except the restrictions specified in LRM 
13.2. The size specified for 7' ST0RAGE_3IZE of an access type or task type T is assumed to 
include a small amount of hidden administrative storage. 

• Enumeration representation clauses [LRM 13.3J: 

-All integer codes in the rcpicscmation aegreeate must be between INTEGER' FIRST and 
INTEGER'LAST. 

• Record representation clauses [LRM 13.4|; 

- Record representation clauses are permitted only for record types all of whose components have a size 
known tit compile time. 

- Representation specifications may be specified for some components of a record without supplying 
representation specifications for all components. The compiler will freely allocate the unspecified 
components. 

• Address clauses [LRM 13.5]; 

- When applied to an object, an address clause becomes a linker directive to allocate the object at the 
given logical address. For any object not declared immediately within a top-level library package, the 
address clause is meaningless, with the possible exception of objects declared inside a task, if the 
target pet mits a task to run in a separate address space. 

- Address clauses applied to local packages arc not supported by Tartan Ada. 

- Address clauses applied to subprograms and tasks arc implemented according to the LRM rules. 


REVISED TOR VERSION 2.00; MAY IS. 19RS 
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- When applied to an entry, die specified value identifies an interrupt in a manner customary for the 
tat get. Immediately after a task is created, a runtime call is made for each of its entries having an 
address clause, establishing the proper binding between the entry and the interrupt. 

5.5. IMPLEMENT. \ TION-GENERA TED COMPONENTS L V RECORDS 

The only implementation-dependent components allocated by Tartan Ada in records contain dope infor¬ 
mation lor arrays whose bounds depend on discriminants of the record. These components cannot be named by 
the user. 


5.6. INTERPRETATION OE EXPRESSIONS APPEARING IN ADDRESS CLAUSES 

.Section 13.5.1 of the Ada Language Reference Manual describes a syntax for associating interrupts with 
task entries. Tat tan Ada implements the address clause 

for toentry use at in*ID: 

by associating the interrupt specified by intID with the toentry entry of the task containing this address 
clause. The interpretation of intID is both machine and compiler dependent. 

The Aila/ 1750 runtimes provide lb interrupts that may be associated with task entries. These interrupts arc 
identified by an integer in the range ().. 15. The intID argument of an address clause is interpreted as follows: 

• If the aigument is in the range 0..I5. a full support interrupt association is made between the interrupt 
specified by the argument and the task entry. 

• If the argument is in the range 16..31. a fast interrupt association is made between the interrupt number 
(argument-16) and the task entry. 

• It die argument is outside the range 0..31. the program is erroneous. 

Tor die difference between full support and fast interrupt handling, refer to Section S.4.5. 

5.7. RESTRICTIONS ON UNCHECKED CONVERSIONS 

Tartan supports UNCHECKED_CONVEP.SION with a restriction that icquires the sizes of both source and 
target types to be known at compile time. The sizes need not be the same. If the value in the source is wider 
than that in the target, the source value will be truncated. If narrower, it will be zero-extended. Calls on 
instantiations of UNCHECKED_CONVERSIOH are made inline automatically. 

5.5. IMPLEMENTATION-DEPENDENT CHARACTERISTICS 
OE INPUT-OUTPUT PACKAGES 

Tartan Ada supplies the predefined input/output packages DIREC7_I0. SEQL’E.'.'TIAL_IO. TEX?_IO. 
and LQ'.V_LEVEL_IO as required by LRM Chapter 14. However, since MIL-STD-1750A is used in embedded 
applications lacking both standard I/O devices and file systems, tiie functionality of DIREC7_IG. 
SEQUENTIAL_ICL and TEX7_I0 is limited. 

DIREC7_I0 and SEOUENTIAL_IO raise USE_ERROR if a file open or file access is attempted. 
7EXT_I0 is supported to C’JRREN7_QUTPUT and from CUP.REN7_INPUT. A routine that takes explicit fiie 
names raises USE_ERP,OR. LOW_LEVEL_IO for MIL-STD-I750A provides an interface by which the user 
may execute XIO operations. In both the SEND_CONTROL and RECEIVE_CONTROL procedures, the device 
parameter specifies an XIO address while the data parameter is the single word of data transferred. 

5.9. OTHER IMPLEMENTATION CHARACTERISTICS 

Tile following information is supplied in addition to that required by Appendix P to MIL-STD-1815A. 

5.9.1. Definition of a Main Program 

Any Ada library subprogram unit may be designated the main program for purposes of linking (using the 
ALI" command) provided that the subprogram lias no parameters. 

Tasks initialed in imported library units follow the same rules for termination as oilier tasks (described in 
LRM 9.4 (6-10)]. Specifically, these tasks are not terminated simply because the main program has ter¬ 
minated. Terminate alternatives in selective wait statements in library tasks are (heretorc strongly recom¬ 
mended. 
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5.9.2. Implementation of Generic Units 

All instantiations of generic units, except the predefined generic UNCHECKED_CONVERSIQN and 
UNCHECKED_DEALLOCATIQN subprograms, arc implemented by code duplications. No attempt at sharing 
code by multiple instantiations is made in this release of Tartan Ada. (Code sharing will be implemented in a 
Inter release.) 

Tartan Ada enforces the restriction that the body of a generic unit must be compiled before the unit can be 
instantiated. It does not impose the restriction that the specification and body of a generic unit must be provided 
ns part of the same compilation. A recompilation of the body of a generic unit will obsolete any units that 
instantiated this generic unit. 

5.9.3. Attributes of Type Duration 

Hie type DURATION is defined with the following characteristics: 

DURATION'DELTA is 0.0001 see 
DURATION'SMALL is 6.103516E' see 
DURATION ' FIRST is -S6400.0 sec 
DURATION 1 LAST is 864(H).0 see 

5.9.4. Values of Integer Attributes 

Tartan Ada supports the predefined integer types INTEGER and L0NG_IN7EGER. The range bounds of 
the predefined type INTEGER are: 

INTEGER'FIRST is -2**15 
INTEGER'LAST is 2** 15-1 

Hie range bounds of the predefined type LONG_INTEGER arc: 

LONG_INTEGER'FIRST is-2**31 
LONG_INTEGER' LAST is 2**31 -1 

The range bounds for subtypes declared in package TEX7_I0 arc: 

COUNT' FIRST is 0 

COUNT' LAST is INTEGER' LAST - 1 

P0SITIVE_C0UNT' FIRST is I 

F0SI7IVE_C0UNT’LAST is INTEGER’LAST - 1 

FIELD ' FIRST is 0 
FIELD'LAST is 20 

The range bounds for subtypes declared in packages G7RECT_I3 arc: 

COUNT’FIRST is 0 

COUNT'LAST is INTEGER'LAST/ELEMENT_TYPE'SIZE 

P0SITIVE_C0UNT' FIRST is 1 
POSITIVE COUNT’LAST is COUNT’LAST 
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5.9.5. Values of Floating-Point Attributes 


Attribute 

Value for FLOAT 

DIGITS 

6 

MANTISSA 

21 

EM AX 

84 

EPSILON 

16#0.1000_000?E-4 

appioximatcly 

9.53674E-07 

SMALL 

16#0.8000J>.)0*E-21 

approximately 

2.5S494E-26 

L A P C e* 

16#0.FFFF_FS0#E-t-21 

approximately 

1.93428E+25 

SAFE_EMAX 

127 

SAFE_SMALL 

16«I0.1000_000#E-31 

approximately 

2.93874E-39 

SAFE_LARCE 

!<»#().7ri-l-_FC0#E+32 

approximately 

1.7014IE+38 

FI P.ST 

-16#0.80<X)JW0#E+32 

approximately 

-I.70I4IE+38 

LAST 

!6#0.7FFF_FF0£E-(-32 

approximately 

1.70141E+38 

MAC: 11N E_RADIX 

0 

MA CHIHE_MANTISSA 

23 

MACHINE_CiMAX 

127 

MACHINE_SMIN 

-128 

MA CHINE_ROUNDS 

TRUE 

MACHINE OVERFLOWS 

TRUE 
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Attribute 


DIGITS 

MANTISSA 


EMAX 

EPSILON 

approximately 

SMALL 

approximately 

LARGE 

approximately 

SAFE_EMAX 

SAFE_3MALL 

approximately 

SAFE_LARGE 

approximately 

FIRST 

approximately 

LAST 

approximately 
MACHINE_RADIX 
M A C HINE_MA NTIS5A 
MACHINE_EMAX 
MACHINE_EMIN 
MACHINE_ROUMDS 
MACHINE OVERFLOWS 


APPENDIX F TO MIL-STD-I815A 

Value for LONG FLOAT 

9 

31 

124 

16?0.4(XX)_0000_00#E-7 
9.313225746154SE-10 

1Gf0.3(XX)_0000_00#E-3 1 
2.3509387016445E-3S 

16y0. FFFF_FFFE_00?E-t-31 
2.1267647922655E+37 

127 

16*0.1000_0000_00#E-31 
2.93S7358770557E-39 

1 fWO. 7 FFF_FFFF_00# E+32 
1.701411S338I24E+38 

-16#0.8000_0000_00#E+32 
-1.7014118346016E4-38 

16#0.7FFF_FFFF_FF#E-r-32 
1.70141 !S346047E-r38 

a 

39 

127 

-12S 

TRUE 

TRUE 
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APPENDIX 


TEST PARAMETERS 


Certain tests in The ACVC maxe use of imc!ementation-dependent values, such 
as the maximum length of an input line ana invalia file names. A test that 
makes use of such values is taentified ov the extension .TST in its file 
name. Actual values to be substituted are represented by names that begin 
with a dollar sign. A value must be substituted for each of these names 
before the test is run. The values used for this validation are given 
below. Ago aggregate notation is used to denote long strings. The 
’♦’-operator is meant to be overloaded to achieve repetition so that e.g. 
239 * ’A’ is eauivalent to f I.. 2 3 9 => ’A’). 

Name_and_Mean j,ng _ Value_ 

iBIG.IDl 22? « ’A’ & ’ 1’ 

Identifier the size of the 
maximum input line length with 
varying last character. 

$BIG_ID2 23? * ’A’ l ’2’ 

Identifier the size of the 
maximum input line length with 
varying last character. 

sBIG_ID3 120 * ’A’ a ’3’ & 11? * ’A’ 

I dentifier the size of the 
maximum input line length with 
varying middle character. 

tbig_:d 4 120 * ’A’ a a 11? * ’A 1 

Identifier the size of the 
maximum input line length with 
varying middle character. 

IBIG.INT.LIT 237 * ’0’ S "2?B" 

An integer literal of value 2?8 
with enough leading zeroes so 
that it is the size of the 
maximum line length. 
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Nj3me_3!!d_Meanj.n(j 


Value 


JBIG.REAL.LIT 

A universal real literal of 
value 690.0 with enough leading 
;e r oes to be the size of the 
max i mum line length. 


235 * ’0’ & "690.0 


1 El5_STRING! 

A string literal 
catena tea with 
vields the image 


which unen 
BIG STRING2 
of BIG.I01. 


JBIG.S'RINGZ 

A string literal which when 
catenated to the end of 
BIG STRING! yields the image of 
BIC-'lDl. 


a 120 * ’A’ & 


1 n 1 


X 119 * ’A’ 5 


o » »i > 
a. 


J8LANK.S 220 * 

A sequence of blanks twenty 
characters less than the size 
of the maximum line length. 


SC0UNT_LAST 

A universal integer 
literal whose value is 
TEXT 10.COUNT’LAST . 


*rIELD_LAST 

A universal integer 
literal wnose value is 
TEXT 10.FIELD’LAST. 


20 


$ FILE.NAME JJI!H_SAD_CHARS 

An external file name that 
either contains invalid 
characters or is too long. 


XI]!as* A S~Y 


jFILE_NAME.VITH_yiLD.CARD.CHAR XYI* 

An external file name that 
either conta ins a wild card 
character or is too long. 

JGREATER.THAN.DURATION 100000.0 

A universal real literal that 
1ies between DURATION’BASE’LAST 
and DURATION’LAST or any value 
in the range of DURATION. 
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Name_and_Mgan j.ng_ V§1 ye_ 

$GREATER_THAN_DURATI0N_3ASE.LAST 100000000.0 

A universal real literal that is 
greater than DURATION’BASE’LAST . 

♦ ILLEGAL.EXTERNAL_FILE.NAME1 BAD-CHARt A 

An external file name which 
contains invalid characters. 

*ILLEGAL_EXTESNAL_ r ILE_NAME: MUCH.TCO.LONG.NAME_FOR.A_F ILE_MUCH_TOO_LONG 

A r, external file name which 
is too long. 

♦INTEGER.FIRST -22768 

A universal integer literal 
wnose value is INTEGER’FIRST. 

♦ INTE GER.LAST 32767 

A universal integer 1 iteral 
whose value is INTEGER’LAST. 

$INTEGER_LA$T_PLUS_1 32768 

A universal integer literal 
whose value is INTEGER’LAST + 1. 

SLESS.THANJURATION -100000.0 

A universal real literal that 
lies between DURATION’BASE’FIRST 
and DURATION’FIRST or any value 
in the range of DURATION. 

tLESS.'HAN.DURATION.3ASE.FIRST -100000000. D 

A universal real literal that is 
less than DURATION’BASE’FIRST. 

$MAX_ DIGITS 9 

Maximum digits supported for 
floating-point types. 

IMAX.IN.LEN 240 

Maximum input 1ine length 
permitted by the implementation. 

♦MAX.INT 2147483647 

A universal integer literal 
whose value is SYSTEM.MAX.INT. 

♦ MAX. INT.PL'JS.i 2147483648 

A universal integer literal 
wnose value is SYSTEM.MAX.INT-*-1. 
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test parameters 


Nams.ind-^saoiQS_ 

*MAX_LEN_INT.BASED.LITERAL 

A universal integer based 
1 i tera I whose value is 2811# 
with enough leading zeroes in 
the mantissa to be MAX.IN.LEN 
long. 

$MAX_LEN_REAL_3ASED_LITERAL 

A universal real based literal 
wnose value is 16 •' F. E: with 
enough leading zeroes in the 
mantissa to be MAX.IN.LEN long. 

$MAX_S*RING.LITERAL 

A string literal of Size 
MAX.IN.LEN, including the ouote 
characters. 

JMINJNT 

A universal integer literal 
wnose value is SYSTEM.MIN_INT. 

f NAME 

A name or a predefined numeric 
tvpe other than FLOAT, INTEGER, 
SHORT FLOAT, SHORT.INTEGER, 

LONG.FIOAT, or LONG_ INTEGER. 

$NEG_3ASED_INT 

A based integer literal whose 
highest order nonzero bit 
fails in the sign bit 

position of the representation 

for SYSTEM.MAX.INT. 


value_ 

"2:" 8 235*’O’ S “11: 


■•16:“ 8 233**0 ’ & "F.E: 


& 238 * ’A’ & 

-2147463648 

•NAME 


887777777777768 
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APPEND IX D 
WITHDRAWN TESTS 


Some tests ere withdrawn from the AC'/C because they do not conform to the 
Aoa S:anaara. The following 27 tests hac oeen withdrawn at the time of 
validation testing for the reasons indicated. A reference of the form 
"AI-ddada" ; s to an Aca Commentary. 


EZS0C2A: A basic declaration (line 26) wrongiy follows a later 
declaration. 

E2S005C: This test requires that ’PRAGMA LIST (ON);’ not appear 
in a listing that has been suspenced bv a previous "pragma LIST 
(GF-);"; the Ada Standard is not clear on this point, and the 
matter will be reviewed by the ARG. 

C3 5 004A: The expression in line 166 wrongly yields a value 
outside of the range of the target type T, raising 
CONSTRAINT.ERROR. 

C25502?: Equality operators in lines SZ a 69 should be inequality 
operators. 

A25902C: Line 17’s assignment of the nominal upper bound of a 
fixed-point type to an object of that type raises 
CONSTRAINT_ERROR, for that value lies outside of the actual range 
of the type. 

C25?04A: The elaboration of the fixed-point subtype on line 28 
wrongly raises CONSTRAINT_ERROR, because its upper bound exceeds 
that of the type. 

C25904B: The subtype declaration that is expected to raise 
C0NSTRAINT_ERR0R when its compatibility is checked against that of 
various types passed as actual generic parameters, may in fact 
raise NUMERIC.ERROR or CQNSTRAINT_ERECR for reasons not 
anticipated by the test. 
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withdrawn tests 




C35A03E. C35A03R: These tests assume that attribute ’MANTISSA 
returns 0 wnen applied to a fixed-point type with a null range, 
but the Ada Standard doesn’t support this assumption. 

C37Z13H: The subtype declaration of SCONS in line 100 is wrongly 
expected to raise an exception wnen elaborated. 

3 3 7 Z13 J •' The aggregate in line 45i wronglv "aises 
■:0NST".AINT_ERR0R. 

C 3 7 r:5 C, C37215E, C37315G , T 3 7 315 H : Various discriminant 

constraints are wrongly expected to be incompatible with type 
CONS. 

C2fi102Cf The fixed-point ccnvers'on on line 23 wrongly raises 
CONS TRAlNT_Sf?RGR. 

C41402A: ’STORAGE.SIZE is wrongly applied to an object of an 

access type. 

C5332A: The test expects that either an expression in line 52 
will raise an exception or eise MACHINE_OVERFLOWS is FALSE. 
However, an implementation mav evaluate the expression correctly 
using a type with a wider range than the base type of the 
oeeranas, and MACHINE.OVERFLOWS mav still oe TRUE. 

C 4 5 6 1A C: REPORT.I DENT IN T has an argument of the wrong type 
C LONG.INTEGERS. 


A74106C, C850123, C37304B, CC131 
fixed-point subtype declaration 
for the base type, raising CONS'RA 
occur in lines 37 3 59, 142 l 


B •' 4 bounc specified in a 

lies outsiae of that calculated 
M7_ERRCR. Errors of this sort 
, i 5 lx —o, a no uOu <x w5o o t .he 


respectively (and ocssioiy eisew; 


3 r - • c a ■ 

0 o v . u o h * < 

are legal. 


expected 


o e 1 1 i e g a;; 


ADIACTA: The declaration of 
for implementations that se i e 


e INT3 "Bises CQNS7RAINT_ERRQR 

' ? * 7 C ♦ a * L m r* nrpdtAr 

>«/ ww i w v ' - : z a i z f . 


CS2401H-’ The record aggregates in lines 105 3> 117 contain the 

wrong values. 


CE3206A: This test expects that an attempt to ooen the default 
output file (after it was closed) with moae IN.FILE raises 
NAME.ERPQR or USE_ERRQR; by Commentary AI-00048, MODE.ERROR should 
be raises. 
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